home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-11
/
vs_804.zip
/
MAINTSRC.EXE
/
_MNTDICT.PRG
< prev
next >
Wrap
Text File
|
1991-07-02
|
3KB
|
126 lines
* Filename......: _MntDict.Prg
*
* Author........: Vernon E. Six, Jr.
*
* Last Update...: Tue 07-02-1991 14:36:06
*
* Notice........: Copyright (c) 1991 by Vernon E. Six, Jr.
* All Rights Reserved World Wide
FUNCTION MNT_DICT
*****
* Database Dictionary Maintenance
*****
PRIVATE c_FldList
PRIVATE c_Title
PRIVATE c_FootNote
PRIVATE l_Index
PRIVATE c_Udf
PRIVATE c_HdrLine
PRIVATE l_Delete
PRIVATE n_Bar
PRIVATE n_Key
PRIVATE ac_Msg[3]
BEGIN SEQUENCE
*****
* Open all the necessary files
*****
SELECT B
IF .NOT. V_USE("DBF_DICT",.F.)
BREAK
ENDIF
IF .NOT. FILE("DBF_DICT.NTX")
IF .NOT. SHOW_NTX("DBF_DICT","DBF_NAME+FIELD_NMBR","C")
BREAK
ENDIF
ENDIF
IF .NOT. FILE("DBF_FLDS.NTX")
IF .NOT. SHOW_NTX("DBF_FLDS","DBF_NAME+FIELD_NAME","C")
BREAK
ENDIF
ENDIF
SET INDEX TO DBF_DICT, DBF_FLDS
SELECT C
IF .NOT. V_USE("DBF_HDR",.F.)
BREAK
ENDIF
IF .NOT. FILE("DBF_HDR.NTX")
IF .NOT. SHOW_NTX("DBF_HDR","DBF_NAME","C")
BREAK
ENDIF
ENDIF
SET INDEX TO DBF_HDR
*****
* Define the stuff for VPICK()
*****
c_FldList = "DBF_NAME+[ ]+DESC"
c_Title = " Which Database? "
c_FootNote = " [Esc] - exit, [Rtrn] - Edit, [Ins] - Add "
l_Index = .T.
c_Udf = ""
c_HdrLine = "DataBase Description"
l_Delete = .T.
n_Bar = 0
GRABSCRN()
PALETTE(5)
DO WHILE .T.
*****
* Allow for different help screens from within VPICK()
*****
gc_HelpPrg = "MNT_DICT"
n_Key = VPICK(5,4,15,c_FldList,c_Title,c_FootNote,l_Index,c_Udf,c_HdrLine,l_Delete,@n_Bar)
gc_HelpPrg = ""
DO CASE
CASE n_Key = 27 && [Esc]
EXIT
CASE n_Key = 13 && [Rtrn]
EDT_HDR("UPDATE")
CASE n_Key = 22 && [Ins]
EDT_HDR("ADD")
CASE n_Key = -9 && [F10]
MNT_DBF()
ENDCASE
ENDDO
PUTSCRN()
END SEQUENCE
SELECT B
USE
SELECT C
USE
SELECT B
RETURN(.T.)
*** EOF: MNT_DICT() *********************************************************